perm filename U.F4[1,LCS]1 blob sn#539563 filedate 1980-10-01 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	1	FORMAT(' TYPE FILE NAME  '$)
C00003 ENDMK
CāŠ—;
1	FORMAT(' TYPE FILE NAME  '$)
2	FORMAT(A5)
3	FORMAT(1X,A3,' TOTAL=',F9.2)
4	FORMAT(A1,A5,A1,F)
	MM=' '
5	TYPE 1
	ACCEPT 2,NAM
	CALL IFILE(1,NAM)
	A=0
6	READ(1,4,END=100)J,K,L,X
	IF(K.NE.-23152926248)GO TO 6
	A=A+X
	GO TO 6
100	TYPE 3,NAM,A
	TYPE 2,MM
	TYPE 2,MM
	GO TO 5
	END